home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
data
/
pvap322a
/
pvaploop.plp
< prev
next >
Wrap
Text File
|
1993-11-30
|
24KB
|
1,012 lines
/************************************************************************
* PC-VANでの処理 *
************************************************************************/
/* 各メニューにジャンプし各未読を見る */
%Jump{
[jump]
LOGSAVE;
type({J }|JUMP|{\n});
loop({
wait ({60},STOP,
{訂正}, {WAIT;SNDMSG({okasi_f.snd});
display({\nジャンプコードが間違っています\n});
im({No})},
{リターンキーを押して下さい=},
{type({\n});im({Yes})},
{よろしいですか(Y,N)=},
{type({\n});im({Yes})},
{よろしいですか=},
{type({\n});im({Yes})},
{,J)=}, {jump;im({No})},
{番号またはコマンド=},
{jump;im({No})});
});
};
/* 各メニューにジャンプし各未読タイトルを見る */
%Jump2{
[jump]
type({J }|JUMP|{\n});
loop({
wait ({60},STOP,
{訂正}, {WAIT;SNDMSG({okasi_f.snd});
display({\nジャンプコードが間違っています\n});
im({No})},
{リターンキーを押して下さい=},
{type({\n});im({Yes})},
{よろしいですか(Y,N)=},
{type({\n});im({Yes})},
{よろしいですか=},
{type({\n});im({Yes})},
{,J)=}, {jump;im({No})},
{番号またはコマンド=},
{jump;im({No})});
});
};
/* SIG内での処理 */
%SIG{
B:={No};
%JUMP @nth(a,3,{/});
footnote(JUMP|{での処理をしています});
%sig{
%NUMBER1 @nth(a,4,{/});
case (NUMBER1={},
{No}, {type({3\n});
footnote(JUMP|{の}|NUMBER1|
{番フォーラムの未読を見ています});
WAIT;FREAD({FORUM});type({M\n});WAIT});
%NUMBER1 @nth(a,5,{/});
case (NUMBER1={},
{No}, {type({5\n});
footnote(JUMP|{の}|NUMBER1|
{番会議室の未読を見ています});
wait({60},STOP,
{現在このサービスは行っていません},
{WAIT;
SNDMSG({okasi_f.snd});
display({\nこのSIGには}|
{会議室がありません\n})},
{,J)=}, {KREAD;type({M\n});WAIT},
{番号またはコマンド=},
{KREAD;type({M\n});WAIT})});
%NUMBER1 @nth(a,8,{/});
case (NUMBER1,
{Yes}, {type({6\n});
footnote(JUMP|{のOLT広場を見ています});
WAIT;type({3\n});
WAIT;type({1\n});WAITOLT;type({M\n});WAIT});
%NUMBER1 @nth(a,6,{/});
case (NUMBER1={},
{No}, {type({7\n});
footnote(JUMP|{の}|NUMBER1|
{番OSLのリストを見ています});
wait({60},STOP,
{現在このサービスは行っていません},
{WAIT;
SNDMSG({okasi_f.snd});
display({\nこのSIGには}|
{OSLがありません\n})},
{,J)=}, {OSLCHK;type({M\n});WAIT},
{番号またはコマンド=},
{OSLCHK;type({M\n});WAIT})});
%NUMBER1 @nth(a,7,{/});
case (NUMBER1={},
{No}, {type({4\n});
footnote(JUMP|{の}|NUMBER1|
{番ライブラリのリストを見ています});
wait({60},STOP,
{現在このサービスは行っていません},
{WAIT;
SNDMSG({okasi_f.snd});
display({\nこのSIGには}|
{ライブラリがありません\n})},
{,J)=}, {LIBCHK;type({M\n});WAIT},
{番号またはコマンド=},
{LIBCHK;type({M\n});WAIT})});
};
case(WHERE2=JUMP,{Yes},{LOGSAVE;sig},,{WHERE2:=JUMP;Jump(sig)});
case(SAVE,{JUMPCODE},{case(REC,{Yes},{REC:={No};stoprec})});
LOGDEL;
};
/* フォーラム・掲示板の未読を表示 */
%FREAD{
[WHERE]
C:=1;
loop({
%NUMBER2 @nth(NUMBER1,C,{,});
type({RN}|NUMBER2|{\n});
wait({60},STOP,
{新しいメッセージは、ありません。},
{WAIT;case (@nth(NUMBER1,C+1,{,})={},
{No}, {C:=C+1;im({Yes})},
{Yes}, {im({No})})},
{****},
{B:={Yes};
WAIT;
case(WHERE,{BBS},{LogSave2},,{LogSave});
type({RB-\n});
WAITrb;
case(SAVE,{BOARD},{case (REC,{Yes},{REC:={No};stoprec})});
case (@nth(NUMBER1,C+1,{,})={},
{No}, {type({F\n});WAIT;C:=C+1;im({Yes})},
{Yes}, {im({No})});});
});
};
/* 会議室の未読を見る */
%KREAD{
C:=1;
loop({
%NUMBER2 @nth(NUMBER1,C,{,});
type(NUMBER2|{\n});
WAIT;
type({RN\n});
wait({60},STOP,
{新しいメッセージは、ありません。},
{WAIT;case (@nth(NUMBER1,C+1,{,})={},
{No}, {type({S\n});WAIT;C:=C+1;im({Yes})},
{Yes}, {im({No})})},
{****},
{B:={Yes};
WAIT;
WHERE:={KAIGI};LogSave;
type({RB-\n});
WAITrb;
case(SAVE,{BOARD},{case (REC,{Yes},{REC:={No};stoprec})});
case (@nth(NUMBER1,C+1,{,})={},
{No}, {type({S\n});WAIT;C:=C+1;im({Yes})},
{Yes}, {im({No})});});
});
};
/* OLT広場の未読を見る */
%WAITOLT{
wait({120},STOP,
{新しいメッセージは、ありません。},WAIT,
{タイトル}, {B:={Yes};
A:=@tail(@laststr,{#},{/});
WAIT;
case (SAVE={BOARD},
{Yes},
{case (preser,
{ 1},{mkdir2(LOGPATH|{\}|JUMP|{\OLT});
LOGFILE:=@crefile(LOGPATH|{\}|
JUMP|{\OLT},{LOG});
receive(LOGPATH|{\}|
JUMP|{\OLT\}|LOGFILE);
REC:={Yes}})});
loop({
type({RB}|A|{,}|A+1|{,}|A+2|{,}|A+3|{,}|A+4|{\n});
wait({300},STOP,
{訂正して},
{WAIT;im({No})},
{ありません。\n\n}|{番号または},
{WAIT;im({No})},
{,J)=},
{A:=A+5;im({Yes})},
{<FM>=},
{A:=A+5;im({Yes})});
});});
case(SAVE,{BOARD},{case (REC,{Yes},{REC:={No};stoprec})});
};
/* OSLを見る */
%OSLCHK{
A:=1;
C:=1;
case (SAVE,
{BOARD},
{case (preser,
{ 1}, {mkdir2(LOGPATH|{\}|JUMP);
delfile(LOGPATH|{\}|JUMP|{\OSLLIST.LOG});
receive(LOGPATH|{\}|JUMP|{\OSLLIST.LOG});
REC:={Yes}})});
loop({
%NUMBER2 @nth(NUMBER1,C,{,});
type(NUMBER2|{\n});
WAIT;
type({2\n});
loop({
WAIT;
case (LIST=A,
{Yes},{im({No})},
{No}, {A:=A+1;type({\n});im({Yes})});
});
case (@nth(NUMBER1,C+1,{,})={},
{No}, {type({S\n});WAIT;C:=C+1;im({Yes})},
{Yes}, {im({No})});
});
case(SAVE,{BOARD},{case(REC,{Yes},{REC:={No};stoprec})});
};
/* ライブラリを見る */
%LIBCHK{
A:=1;
C:=1;
case (SAVE,
{BOARD},
{case (preser,
{ 1}, {mkdir2(LOGPATH|{\}|JUMP);
delfile(LOGPATH|{\}|JUMP|{\LIBLIST.LOG});
receive(LOGPATH|{\}|JUMP|{\LIBLIST.LOG});
REC:={Yes}})});
loop({
%NUMBER2 @nth(NUMBER1,C,{,});
type(NUMBER2|{\n});
loop({
WAIT;
case (LIST=A,
{Yes},{im({No})},
{No}, {A:=A+1;type({\n});im({Yes})});
});
case (@nth(NUMBER1,C+1,{,})={},
{No},{type({S\n});WAIT;C:=C+1;im({Yes})},
{Yes},{im({No})});
});
case(SAVE,{BOARD},{case(REC,{Yes},{REC:={No};stoprec})});
};
/* SIG内での処理(検索して読む) */
%SIGK{
var MESNUM1[2000];
var MESNUM2[30];
var E[5];
var F[5];
B:={No};
D:={0};
%JUMP @nth(a,3,{/});
footnote(JUMP|{での処理をしています});
%sig{
%NUMBER1 @nth(a,4,{/});
%KEYWORD @nth(a,5,{/});
case (NUMBER1={},
{No}, {type({3\n});
footnote(JUMP|{の}|NUMBER1|
{番フォーラムの未読を検索して見ています});
WAIT;KFREAD({FORUM});type({M\n});WAIT});
%NUMBER1 @nth(a,6,{/});
%KEYWORD @nth(a,7,{/});
case (NUMBER1={},
{No}, {type({5\n});
footnote(JUMP|{の}|NUMBER1|
{番会議室の未読を検索して見ています});
wait({60},STOP,
{現在このサービスは行っていません},
{WAIT;
SNDMSG({okasi_f.snd});
display({\nこのSIGには}|
{会議室がありません\n})},
{,J)=}, {KKREAD;type({M\n});WAIT},
{番号またはコマンド=},
{KKREAD;type({M\n});WAIT})});
};
case(WHERE2=JUMP,{Yes},{LOGSAVE;sig},,{WHERE2:=JUMP;Jump(sig)});
case(SAVE,{JUMPCODE},{case(REC,{Yes},{REC:={No};stoprec})});
LOGDEL;
};
/* フォーラム・掲示板の未読を検索して表示 */
%KFREAD{
[WHERE]
C:=1;
loop({
MESNUM1:={};
MESNUM2:={};
%NUMBER2 @nth(NUMBER1,C,{,});
type({RN}|NUMBER2|{\n});
wait({60},STOP,
{新しいメッセージは、ありません。},
{WAIT;case (@nth(NUMBER1,C+1,{,})={},
{No}, {C:=C+1;im({Yes})},
{Yes}, {im({No})})},
{****},
{WAIT;
type({TL\n});
loop({
%rbmes{
MESNUM1:=@body(MESNUM1,{,});
case (MESNUM1={},
{No},{case (WHERE,
{BBS},{LogSave2},,{LogSave})});
loop({
loop({
MESNUM2:=MESNUM2|{,}|@head(MESNUM1,{,});
D:=D+1;
case(D={5},{Yes}, {MESNUM2:=@body(MESNUM2,{,});D:={0};
MESNUM1:=@body(MESNUM1,{,});im({No})},,
{MESNUM1:=@body(MESNUM1,{,});
case (MESNUM1={},{Yes},
{MESNUM2:=@body(MESNUM2,{,});
D:={0};im({No})},,
{im({Yes})})});
});
WAITRB;
case(MESNUM1={},{Yes},{im({No})},,{MESNUM2:={};im({Yes})});
});
case (SAVE,
{BOARD},{case (REC,
{Yes},{REC:={No};stoprec})});
type({SC}|F|{\n});
WAIT;
case(WHERE,{BBS},{type({F\n});WAIT});
};
%KEYWORDa @nth(@nth(KEYWORD,C,{|}),1,{,});
%KEYWORDb @nth(@nth(KEYWORD,C,{|}),2,{,});
%KEYWORDc @nth(@nth(KEYWORD,C,{|}),3,{,});
wait({60},STOP, KEYWORDa,
{E:=@tail(@laststr(100),{\n},{ 9});
getnumber},
KEYWORDb,
{E:=@tail(@laststr(100),{\n},{ 9});
getnumber},
KEYWORDc,
{E:=@tail(@laststr(100),{\n},{ 9});
getnumber},
{ 9},
{F:=@tail(@laststr,{\n},{ 9});
im({Yes})},
{番号またはコマンド<FM>=},
{type({\n});im({Yes})},
{,J)=}, {type({\n});im({Yes})},
{訂正して},{WAIT;rbmes;im({No})});
});
case (@nth(NUMBER1,C+1,{,})={},
{No}, {case (WHERE={BBS},
{Yes},
{type({F\n});WAIT},,
{type({S\n});WAIT});
C:=C+1;im({Yes})},
{Yes}, {case (WHERE={BBS},
{Yes},
{type({F\n});WAIT});
im({No})});});
});
};
%WAITRB{
case (MESNUM2={},
{No}, {B:={Yes};
type({RB}|MESNUM2|{\n});
%waitrb{
wait({1});
case (@laststr({13}),
{TLn,AP,PF,J)=},{im({No})},
{コマンド<FM>=},{im({No})},,
{im({Yes})});
};
loop({
wait({900},STOP,
{TLn,AP,PF,J)=},waitrb,
{コマンド<FM>=},waitrb);
})});
};
%getnumber{
E:={ }|E;
E:=@tail(E,{ });
MESNUM1:=MESNUM1|{,}|E;
wait({60},STOP,{\n},);
im({Yes});
};
/* 会議室の未読を検索して表示 */
%KKREAD{
C:=1;
loop({
MESNUM1:={};
MESNUM2:={};
%NUMBER2 @nth(NUMBER1,C,{,});
type(NUMBER2|{\n});
WAIT;
type({RN\n});
wait({60},STOP,
{新しいメッセージは、ありません。},
{WAIT;case (@nth(NUMBER1,C+1,{,})={},
{No}, {C:=C+1;im({Yes})},
{Yes}, {im({No})})},
{****},
{WAIT;
type({TL\n});
loop({
%rbmes{
MESNUM1:=@body(MESNUM1,{,});
case(MESNUM1={},{No},{WHERE:={KAIGI};LogSave});
loop({
loop({
MESNUM2:=MESNUM2|{,}|@head(MESNUM1,{,});
D:=D+1;
case(D={5},{Yes}, {MESNUM2:=@body(MESNUM2,{,});D:={0};
MESNUM1:=@body(MESNUM1,{,});im({No})},,
{MESNUM1:=@body(MESNUM1,{,});
case (MESNUM1={},{Yes},
{MESNUM2:=@body(MESNUM2,{,});
D:={0};im({No})},,
{im({Yes})})});
});
WAITRB;
case(MESNUM1={},{Yes},{im({No})},,{MESNUM2:={};im({Yes})});
});
case (SAVE,
{BOARD},{case (REC,
{Yes},{REC:={No};stoprec})});
type({SC}|F|{\n});
WAIT;
};
%KEYWORDa @nth(@nth(KEYWORD,C,{|}),1,{,});
%KEYWORDb @nth(@nth(KEYWORD,C,{|}),2,{,});
%KEYWORDc @nth(@nth(KEYWORD,C,{|}),3,{,});
wait({60},STOP, KEYWORDa,
{E:=@tail(@laststr(100),{\n},{ 9});
getnumber},
KEYWORDb,
{E:=@tail(@laststr(100),{\n},{ 9});
getnumber},
KEYWORDc,
{E:=@tail(@laststr(100),{\n},{ 9});
getnumber},
{ 9},
{F:=@tail(@laststr,{\n},{ 9});
im({Yes})},
{番号またはコマンド<FM>=},
{type({\n});im({Yes})},
{,J)=}, {type({\n});im({Yes})},
{訂正して},{WAIT;rbmes;im({No})});
});
case (@nth(NUMBER1,C+1,{,})={},
{No}, {type({S\n});WAIT;
C:=C+1;im({Yes})},
{Yes}, {im({No})});});
});
};
/* SIG内での処理(未読タイトルの取得) */
%SIGT{
case(REC={Yes},{Yes},{stoprec});
%JUMP @nth(a,3,{/});
footnote(JUMP|{での処理をしています});
%sig{
%NUMBER1 @nth(a,4,{/});
case (NUMBER1={},
{No}, {type({3\n});
footnote(JUMP|{の}|NUMBER1|
{番フォーラムの未読のタイトルを見ています});
WAIT;TITLEVIEW({FORUM});type({M\n});WAIT});
%NUMBER1 @nth(a,5,{/});
case (NUMBER1={},
{No}, {type({5\n});
footnote(JUMP|{の}|NUMBER1|
{番会議室の未読のタイトルを見ています});
wait({60},STOP,
{現在このサービスは行っていません},
{WAIT;
SNDMSG({okasi_f.snd});
display({\nこのSIGには}|
{会議室がありません\n})},
{,J)=}, {TitleView({KAIGI});type({M\n});WAIT},
{番号またはコマンド=},
{TitleView({KAIGI});type({M\n});WAIT})});
};
case(WHERE2=JUMP,{Yes},{sig},,{WHERE2:=JUMP;Jump2(sig)});
case (REC={Yes},
{Yes}, {case (SAVE,
{WHOLE},
{receive(LOGPATH|{\VANLOG\}|LOGFILE)})});
};
/* 未読タイトル取得(フォーラム、BBS) */
%TITLEVIEW{
[WHERE]
C:=1;
var F[5];
loop({
%NUMBER2 @nth(NUMBER1,C,{,});
type({RN}|NUMBER2|{\n});
wait({60},STOP,
{新しいメッセージは、ありません。},
{WAIT;case (@nth(NUMBER1,C+1,{,})={},
{No}, {C:=C+1;im({Yes})},
{Yes}, {im({No})})},
{****},
{TITCHECK:={Yes};
WAIT;
LOGSAVE2(WHERE);
type({TL\n});
loop({
wait({60},STOP, {番号またはコマンド<FM>=},
{type({\n});im({Yes})},
{,J)=}, {type({\n});im({Yes})},
{ 9},
{F:=@tail(@laststr,{\n},{ 9});
im({Yes})},
{訂正して},{WAIT;im({No})});
});
stoprec;
type({SC}|F|{\n});
WAIT;
case(WHERE,{BBS},{type({F\n});WAIT});
case (@nth(NUMBER1,C+1,{,})={},
{No}, {case (WHERE={BBS},
{Yes},
{type({F\n});WAIT},,
{type({S\n});WAIT});
C:=C+1;im({Yes})},
{Yes}, {im({No})});});
});
};
/* 未読タイトル取得(会議室) */
%TitleView{
[WHERE]
C:=1;
var F[5];
loop({
%NUMBER2 @nth(NUMBER1,C,{,});
type(NUMBER2|{\n});WAIT;
type({4\n});WAIT;
type({3\n});
wait({60},STOP,
{新しいメッセージは、ありません。},
{WAIT;case (@nth(NUMBER1,C+1,{,})={},
{No}, {C:=C+1;im({Yes})},
{Yes}, {im({No})})},
{番号 登録日付 タイトル 総数:},
{TITCHECK:={Yes};
LOGSAVE2(WHERE);
loop({
wait({60},STOP, {番号またはコマンド<FM>=},
{type({\n});im({Yes})},
{,J)=}, {type({\n});im({Yes})},
{ 9},
{F:=@tail(@laststr,{\n},{ 9});
im({Yes})},
{訂正して},{WAIT;im({No})});
});
stoprec;
type({SC}|F|{\n});
WAIT;
case (@nth(NUMBER1,C+1,{,})={},
{No}, {type({S\n});WAIT;C:=C+1;im({Yes})},
{Yes}, {im({No})});});
});
};
/* BBS内での処理 */
%BBS{
B:={No};
%JUMP @nth(a,3,{/});
footnote(JUMP|{での処理をしています});
%bbs{
%NUMBER1 @nth(a,4,{/});
case (NUMBER1={},
{No}, {footnote(JUMP|{の}|NUMBER1|{番の未読を見ています});
FREAD({BBS});type({F\n});WAIT});
};
case(WHERE2=JUMP,{Yes},{LOGSAVE;bbs},,{WHERE2:=JUMP;Jump(bbs)});
case(SAVE,{JUMPCODE},{case(REC,{Yes},{REC:={No};stoprec})});
LOGDEL;
};
/* BBS内での処理(検索して読む) */
%BBSK{
var MESNUM1[2000];
var MESNUM2[30];
var E[5];
var F[5];
B:={No};
D:={0};
%JUMP @nth(a,3,{/});
footnote(JUMP|{での処理をしています});
%bbs{
%NUMBER1 @nth(a,4,{/});
%KEYWORD @nth(a,5,{/});
case (NUMBER1={},
{No}, {footnote(JUMP|{の}|NUMBER1|
{番の未読を検索して見ています});
KFREAD({BBS})});
};
case(WHERE2=JUMP,{Yes},{LOGSAVE;bbs},,{WHERE2:=JUMP;Jump(bbs)});
case(SAVE,{JUMPCODE},{case(REC,{Yes},{REC:={No};stoprec})});
LOGDEL;
};
/* BBS内での処理(未読タイトルの取得) */
%BBST{
case(REC={Yes},{Yes},{stoprec});
%JUMP @nth(a,3,{/});
footnote(JUMP|{での処理をしています});
%bbs{
%NUMBER1 @nth(a,4,{/});
case (NUMBER1={},
{No}, {footnote(JUMP|{の}|NUMBER1|{番の未読タイトルを}|
{見ています});
TITLEVIEW({BBS});type({F\n});WAIT});
};
case(WHERE2=JUMP,{Yes},{bbs},,{WHERE2:=JUMP;Jump2(bbs)});
case (REC={Yes},
{Yes}, {case (SAVE,
{WHOLE},
{receive(LOGPATH|{\VANLOG\}|LOGFILE)})});
};
/* CUGにジャンプして各処理をする */
%JUMPCUG{
LOGSAVE;
type({J }|JUMP|{\n});
loop({
wait({60},STOP, {よろしいですか(Y,N)=},
{type({\n});im({Yes})},
{よろしいですか=},
{type({\n});im({Yes})},
{未契約},{WAIT;
SNDMSG({okasi_f.snd});
display({\未契約のCUGです\n});im({No})},
{訂正}, {WAIT;
SNDMSG({okasi_f.snd});
display({\nCUGコードが間違っています\n});
im({No})},
{PASSWORD:},
{type(@nth(a,4,{/})|{\n});WAITa;cug;im({No})});
});
};
/* CUGにジャンプして未読タイトルを見る */
%JUMPCUG2{
type({J }|JUMP|{\n});
loop({
wait({60},STOP, {よろしいですか(Y,N)=},
{type({\n});im({Yes})},
{よろしいですか=},
{type({\n});im({Yes})},
{未契約},{WAIT;
SNDMSG({okasi_f.snd});
display({\未契約のCUGです\n});im({No})},
{訂正}, {WAIT;
SNDMSG({okasi_f.snd});
display({\nCUGコードが間違っています\n});
im({No})},
{PASSWORD:},
{type(@nth(a,4,{/})|{\n});WAITa;cug;im({No})});
});
};
/* CUG内での処理 */
%CUG{
B:={No};
%JUMP @nth(a,3,{/});
footnote(JUMP|{での処理をしています});
%cug{
%NUMBER1 @nth(a,6,{/});
case (NUMBER1={},
{No}, {type(@nth(a,5,{/})|{\n});
footnote(JUMP|{の}|NUMBER1|{番掲示板の}|
{未読を見ています});
WAIT;FREAD({KEIJI});type({M\n});WAIT});
%NUMBER1 @nth(a,8,{/});
case (NUMBER1={},
{No}, {type(@nth(a,7,{/})|{\n});
footnote(JUMP|{の}|NUMBER1|{番会議室の}|
{未読を見ています});
WAIT;KREAD;type({M\n});WAIT});
%NUMBER1 @nth(a,14,{/});
case (NUMBER1,
{Yes}, {type(@nth(a,13,{/})|{\n});
footnote(JUMP|{のOLT広場を見ています});
WAIT;type({3\n});
WAIT;type({1\n});WAITOLT;type({M\n});WAIT});
%NUMBER1 @nth(a,10,{/});
case (NUMBER1={},
{No}, {type(@nth(a,9,{/})|{\n});
footnote(JUMP|{の}|NUMBER1|{番OSLの}|
{リストを見ています});
WAIT;OSLCHK;type({M\n});WAIT});
%NUMBER1 @nth(a,12,{/});
case (NUMBER1={},
{No}, {type(@nth(a,11,{/})|{\n});
footnote(JUMP|{の}|NUMBER1|{番ライブラリの}|
{リストを見ています});
WAIT;LIBCHK;type({M\n});WAIT});
};
case(WHERE2=JUMP,{Yes},{LOGSAVE;cug},,{WHERE2:=JUMP;JUMPCUG});
case(SAVE,{JUMPCODE},{case(REC,{Yes},{REC:={No};stoprec})});
LOGDEL;
};
/* CUG内での処理(検索して読む) */
%CUGK{
var MESNUM1[2000];
var MESNUM2[30];
var E[5];
var F[5];
B:={No};
D:={0};
%JUMP @nth(a,3,{/});
footnote(JUMP|{での処理をしています});
%cug{
%NUMBER1 @nth(a,6,{/});
%KEYWORD @nth(a,7,{/});
case (NUMBER1={},
{No}, {type(@nth(a,5,{/})|{\n});
footnote(JUMP|{の}|NUMBER1|{番掲示板の}|
{未読を検索して見ています});
WAIT;KFREAD({KEIJI});type({M\n});WAIT});
%NUMBER1 @nth(a,9,{/});
%KEYWORD @nth(a,10,{/});
case (NUMBER1={},
{No}, {type(@nth(a,8,{/})|{\n});
footnote(JUMP|{の}|NUMBER1|{番会議室の}|
{未読を検索して見ています});
WAIT;KKREAD;type({M\n});WAIT});
};
case(WHERE2=JUMP,{Yes},{LOGSAVE;cug},,{WHERE2:=JUMP;JUMPCUG});
case(SAVE,{JUMPCODE},{case(REC,{Yes},{REC:={No};stoprec})});
LOGDEL;
};
/* CUG内での処理(未読タイトルの取得) */
%CUGT{
case(REC={Yes},{Yes},{stoprec});
%JUMP @nth(a,3,{/});
footnote(JUMP|{での処理をしています});
%cug{
%NUMBER1 @nth(a,6,{/});
%MAINNUM @nth(a,5,{/});
case (NUMBER1={},
{No}, {type(MAINNUM|{\n});
footnote(JUMP|{の}|NUMBER1|{番掲示板の}|
{未読タイトルを見ています});
WAIT;TITLEVIEW({CUGKEI});type({M\n});WAIT});
%NUMBER1 @nth(a,8,{/});
%MAINNUM @nth(a,7,{/});
case (NUMBER1={},
{No}, {type(MAINNUM|{\n});
footnote(JUMP|{の}|NUMBER1|{番会議室の}|
{未読タイトルを見ています});
WAIT;TitleView({CUGKAI});type({M\n});WAIT});
};
case(WHERE2=JUMP,{Yes},{cug},,{WHERE2:=JUMP;JUMPCUG2});
case (REC={Yes},
{Yes}, {case (SAVE,
{WHOLE},
{receive(LOGPATH|{\VANLOG\}|LOGFILE)})});
};
/* OLT広場の未読を見る */
%OLT{
B:={No};
footnote({OLT広場の未読を見ています});
%JUMP {OLT};
%JUMPOLT{
type({J }|JUMP|{\n});
wait({60},STOP, {よろしいですか(Y,N)=}, {type({\n});WAIT},
{よろしいですか=}, {type({\n});WAIT},
{番号またはコマンド=},,
{,J)=},);
};
case(WHERE2=JUMP,{No},{WHERE2:=JUMP;JUMPOLT});
type({3\n});
WAIT;
type({1\n});
%WAIT1{
wait({120},STOP,
{新しいメッセージは、ありません。},WAIT,
{タイトル}, {B:={Yes};
A:=@tail(@laststr,{#},{/});
WAIT;
case (SAVE={JUMPCODE}||SAVE={BOARD},
{Yes},
{case (preser,
{ 1}, {mkdir2(LOGPATH|{\}|JUMP);
LOGFILE:=@crefile(LOGPATH|{\}|
JUMP,{LOG});
receive(LOGPATH|{\}|JUMP|{\}|
LOGFILE);
REC:={Yes}})});
loop({
type({RB}|A|{,}|A+1|{,}|A+2|{,}|A+3|{,}|A+4|{\n});
wait({300},STOP,
{訂正して},
{WAIT;im({No})},
{ありません。\n\n}|{番号または},
{WAIT;im({No})},
{,J)=},
{A:=A+5;im({Yes})},
{<FM>=},
{A:=A+5;im({Yes})});
});});
};
WAIT1;
case (SAVE={JUMPCODE}||SAVE={BOARD},
{Yes},{case(REC,{Yes},{REC:={No};stoprec})});
LOGDEL;
type({F\n});
WAIT;
};
/* PC-VANでの処理メイン */
%DOvan{
var DATE[24];
var n [3];
var D [2];
var e [2];
%pcvan1{
case (@nth(a,1,{/}),
{SIG}, {SIG},
{SIG検索}, {SIGK},
{SIGタイトル},{SIGT},
{BBS}, {BBS},
{BBS検索}, {BBSK},
{BBSタイトル},{BBST},
{CUG}, {CUG},
{CUG検索}, {CUGK},
{CUGタイトル},{CUGT},
{OLT広場}, {OLT})
};
%dovan{
case(DOVAN, {ALL},pcvan1,
{DAY},pcvan1,,
{case (@nth(@nth(a,2,{/}),1,{>}),
{毎日},pcvan1,
{奇数},{case (@getchar(DATE,10,1),
{1},pcvan1,{3},pcvan1,
{5},pcvan1,{7},pcvan1,
{9},pcvan1)},
{偶数},{case (@getchar(DATE,10,1),
{0},pcvan1,{2},pcvan1,
{4},pcvan1,{6},pcvan1,
{8},pcvan1)},,
{case (@getchar(@nth(a,2,{/}),1,2),
@getchar(DATE,13,2),pcvan1,/* 曜日 */
@getchar(DATE,9,2),pcvan1, /* 日付 */
{複}, {D:=2;
loop({
case(@nth(@nth(@nth(a,2,{/}),1,{>}),D,{,}),
@getchar(DATE,13,2),
{pcvan1;im({No})},
@getchar(DATE,9,2),
{pcvan1;im({No})},
{終わり},
{im({No})},
,{D:=D+1;im({Yes})});
})})})});
};
DATE:=@getdt;
n:=0;
loop({
n:=n+1;
%a @getline(PCVAN,n,1);
case (a={},
{Yes}, {im({No})},,
{e:=1;
loop({
case(DOVAN, {ALL},{pcvan1;im({No})},
{TIME},{dovan;im({No})},,
{case(@nth(@nth(@nth(a,2,{/}),2,{>}),e,{,}),
{終日},{dovan;im({No})},
{昼間},{case(@getchar(@daylong,{16},{2}),
{10},{dovan;im({No})},
{11},{dovan;im({No})},
{12},{dovan;im({No})},
{13},{dovan;im({No})},
{14},{dovan;im({No})},
{15},{dovan;im({No})},
{16},{dovan;im({No})},
{17},{dovan;im({No})},,
{e:=e+1;im({Yes})})},
{夜1},{case(@getchar(@daylong,{16},{2}),
{18},{dovan;im({No})},
{19},{dovan;im({No})},
{20},{dovan;im({No})},
{21},{dovan;im({No})},,
{e:=e+1;im({Yes})})},
{夜2},{case(@getchar(@daylong,{16},{2}),
{22},{dovan;im({No})},
{23},{dovan;im({No})},
{00},{dovan;im({No})},,
{e:=e+1;im({Yes})})},
{夜中},{case(@getchar(@daylong,{16},{2}),
{01},{dovan;im({No})},
{02},{dovan;im({No})},
{03},{dovan;im({No})},,
{e:=e+1;im({Yes})})},
{朝},{case(@getchar(@daylong,{16},{2}),
{04},{dovan;im({No})},
{05},{dovan;im({No})},
{06},{dovan;im({No})},
{07},{dovan;im({No})},
{08},{dovan;im({No})},
{09},{dovan;im({No})},,
{e:=e+1;im({Yes})})},
{未定},{im({No})},
{終わり},{im({No})},
{},{dovan;im({No})},,{e:=e+1;im({Yes})});
})});
im({Yes})});
});
};
/* PC-VANでの処理(SIGだけ強制巡回) */
%DOvan2{
var n [3];
%pcvan1{
case(@nth(a,1,{/}), {SIG},{SIG},{SIG検索},{SIGK},
{SIGタイトル},{SIGT});
};
n:=0;
loop({
n:=n+1;
%a @getline(PCVAN,n,1);
case(a={},{Yes},{im({No})},,{pcvan1;im({Yes})});
});
};
/* PC-VANでの処理(BBSだけ強制巡回) */
%DOvan3{
var n [3];
%pcvan1{
case(@nth(a,1,{/}), {BBS},{BBS},{BBS検索},{BBS},
{BBSタイトル},{BBST});
};
n:=0;
loop({
n:=n+1;
%a @getline(PCVAN,n,1);
case(a={},{Yes},{im({No})},,{pcvan1;im({Yes})});
});
};
/* PC-VANでの処理(CUGだけ強制巡回) */
%DOvan4{
var n [3];
%pcvan1{
case(@nth(a,1,{/}), {CUG},{CUG},{CUG検索},{CUG},
{CUGタイトル},{CUGT});
};
n:=0;
loop({
n:=n+1;
%a @getline(PCVAN,n,1);
case(a={},{Yes},{im({No})},,{pcvan1;im({Yes})});
});
};
/* 実行 */
setcdir(TITLEPATH);
dispoff({Yes});
command({echo y|del *.*});
dispoff({No});
case(DOVAN, {Yes},{DOvan}, {ALL},{DOvan},
{TIME},{DOvan}, {DAY},{DOvan},
{SIG},{DOvan2}, {BBS},{DOvan3},
{CUG},{DOvan4});